\(\int \frac {(a c-b c x)^n}{a+b x} \, dx\) [1231]

   Optimal result
   Rubi [A] (verified)
   Mathematica [A] (verified)
   Maple [F]
   Fricas [F]
   Sympy [F]
   Maxima [F]
   Giac [F]
   Mupad [F(-1)]

Optimal result

Integrand size = 19, antiderivative size = 52 \[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=-\frac {(a c-b c x)^{1+n} \operatorname {Hypergeometric2F1}\left (1,1+n,2+n,\frac {a-b x}{2 a}\right )}{2 a b c (1+n)} \]

[Out]

-1/2*(-b*c*x+a*c)^(1+n)*hypergeom([1, 1+n],[2+n],1/2*(-b*x+a)/a)/a/b/c/(1+n)

Rubi [A] (verified)

Time = 0.01 (sec) , antiderivative size = 52, normalized size of antiderivative = 1.00, number of steps used = 1, number of rules used = 1, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.053, Rules used = {70} \[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=-\frac {(a c-b c x)^{n+1} \operatorname {Hypergeometric2F1}\left (1,n+1,n+2,\frac {a-b x}{2 a}\right )}{2 a b c (n+1)} \]

[In]

Int[(a*c - b*c*x)^n/(a + b*x),x]

[Out]

-1/2*((a*c - b*c*x)^(1 + n)*Hypergeometric2F1[1, 1 + n, 2 + n, (a - b*x)/(2*a)])/(a*b*c*(1 + n))

Rule 70

Int[((a_) + (b_.)*(x_))^(m_)*((c_) + (d_.)*(x_))^(n_), x_Symbol] :> Simp[(b*c - a*d)^n*((a + b*x)^(m + 1)/(b^(
n + 1)*(m + 1)))*Hypergeometric2F1[-n, m + 1, m + 2, (-d)*((a + b*x)/(b*c - a*d))], x] /; FreeQ[{a, b, c, d, m
}, x] && NeQ[b*c - a*d, 0] &&  !IntegerQ[m] && IntegerQ[n]

Rubi steps \begin{align*} \text {integral}& = -\frac {(a c-b c x)^{1+n} \, _2F_1\left (1,1+n;2+n;\frac {a-b x}{2 a}\right )}{2 a b c (1+n)} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.04 (sec) , antiderivative size = 52, normalized size of antiderivative = 1.00 \[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=-\frac {(a-b x) (c (a-b x))^n \operatorname {Hypergeometric2F1}\left (1,1+n,2+n,\frac {a-b x}{2 a}\right )}{2 a b (1+n)} \]

[In]

Integrate[(a*c - b*c*x)^n/(a + b*x),x]

[Out]

-1/2*((a - b*x)*(c*(a - b*x))^n*Hypergeometric2F1[1, 1 + n, 2 + n, (a - b*x)/(2*a)])/(a*b*(1 + n))

Maple [F]

\[\int \frac {\left (-b c x +a c \right )^{n}}{b x +a}d x\]

[In]

int((-b*c*x+a*c)^n/(b*x+a),x)

[Out]

int((-b*c*x+a*c)^n/(b*x+a),x)

Fricas [F]

\[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=\int { \frac {{\left (-b c x + a c\right )}^{n}}{b x + a} \,d x } \]

[In]

integrate((-b*c*x+a*c)^n/(b*x+a),x, algorithm="fricas")

[Out]

integral((-b*c*x + a*c)^n/(b*x + a), x)

Sympy [F]

\[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=\int \frac {\left (- c \left (- a + b x\right )\right )^{n}}{a + b x}\, dx \]

[In]

integrate((-b*c*x+a*c)**n/(b*x+a),x)

[Out]

Integral((-c*(-a + b*x))**n/(a + b*x), x)

Maxima [F]

\[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=\int { \frac {{\left (-b c x + a c\right )}^{n}}{b x + a} \,d x } \]

[In]

integrate((-b*c*x+a*c)^n/(b*x+a),x, algorithm="maxima")

[Out]

integrate((-b*c*x + a*c)^n/(b*x + a), x)

Giac [F]

\[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=\int { \frac {{\left (-b c x + a c\right )}^{n}}{b x + a} \,d x } \]

[In]

integrate((-b*c*x+a*c)^n/(b*x+a),x, algorithm="giac")

[Out]

integrate((-b*c*x + a*c)^n/(b*x + a), x)

Mupad [F(-1)]

Timed out. \[ \int \frac {(a c-b c x)^n}{a+b x} \, dx=\int \frac {{\left (a\,c-b\,c\,x\right )}^n}{a+b\,x} \,d x \]

[In]

int((a*c - b*c*x)^n/(a + b*x),x)

[Out]

int((a*c - b*c*x)^n/(a + b*x), x)